home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / DEV / I-Z / Texx02.sea / Texx Folder / Shutdown.exec < prev    next >
Text File  |  1992-08-18  |  727b  |  23 lines
  1. /* Shutdown.exec */
  2. say 'Shutdown.exec';
  3. say 'Date of last change - 08/18/92';
  4. address finder;
  5. if rc = 0 then
  6. do   /* Address successfull */
  7.      /* If MS Word temp files exist, move them to the trash */
  8.      /* Set up a path to the system folder */
  9.      path BootDrive() || 'system folder';
  10.      do i = 1 to 4
  11.           if FileExists( 'Word Temp ' || i ) then
  12.                Move Selection 'Word Temp ' || i 0 0 BootDrive() || 'Trash';
  13.      end;
  14.      /* now empty the trash */
  15.         empty trash;
  16.      if rc <> 0 then
  17.          say 'Profile.exec -- Empty Trash failed';
  18. end;
  19. else   /* Address failed, inform user */
  20.       say 'Shutdown.exec -- Address finder failed';
  21. /* insert other commands here */
  22. say 'End of Shutdown.exec';
  23.